#lang rosetta-racket


(backend rhino 'delete)

;(align
; align-center
; align-none
; align-none
; (sphere (xyz -1 2 0.1) 1)
; (box (xyz 7 -1 2) 1 2 3)
; (circle (xyz -2 -5 -2) 1))

;(align
; align-center
; align-none
; align-none
; (box (xyz -1 2 0.1) 10 1 1)
; (box (xyz 7 -1 2) 4 1 1))

;(align-x
; (align-pos (box 10 1 1))
; (box (xyz 4 -2 0) 4 1 1)
; (align-neg (box (xyz -4 -4 0) 4 1 1)))

;(align
; (x-pos (box 10 1 1))
; (x-pos (box (xyz 4 -2 0) 4 1 1))
; (x-neg (box (xyz -4 -4 0) 4 1 1))
; (x-cen (box (xyz -4 -6 0) 4 1 1)))

(align-simple
 x-neg
 x-neg
 (box 10 1 1)
 (box (xyz 4 -2 0) 4 1 1)
 (box (xyz -4 -4 0) 4 1 1)
 (box (xyz -4 -6 0) 4 1 1))